home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / Gestion / Bibliographie⁄Répertoire / Répertoire 3.0 / RÈpertoire 3.0.rsrc / LENS_131_Recherche < prev    next >
Text File  |  1994-08-22  |  6KB  |  129 lines
  1. ItemType: WIND
  2. Rect: 225,97,414,329
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 32767,32767
  10. Name: Recherche
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --(d'après Alan Pabst, Heizer Software)¬--on windowEvent wdID,wdName,objNo,objName,objValue¬¬if objValue is "Open" then¬  wsSet wdID,"Entree","Text",""¬  wsSet wdID,"Path","Text",""¬  wsSet wdID,"Complet","Value","0"¬  wsSet wdID,"Rechercher","Disabled","true"¬  wsSet wdID,"Consulter","Disabled","true"¬  wsSet wdID,"Stocker","Disabled","true"¬  wsSet wdID,"Contient","hilite","true"   ¬else if objValue is "Close" then¬  ¬  ¬else if objValue ="Suspend" then¬  ¬else if objValue ="Resume" then¬  ¬else if objValue ="CloseBOx" then¬  ¬else if objValue ="ZoomBox" then¬  ¬else if objValue ="GrowBox" then¬  ¬else if objValue ="TitleBar" then¬  ¬end if¬--end windowEvent
  13.  
  14. ItemType: PUSH
  15. Rect: 44,85,124,102
  16. TextFont: Geneva
  17. TextSize: 10
  18. Disabled: TRUE
  19. Name: Rechercher
  20. DefaultItem: TRUE
  21. Balloon: Ce bouton devient actif avec l'appui sur la touche Tabulation après la saisie du mot à recherche.
  22. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬put empty into laRecherche¬put empty into laListe¬put "Mot-cle" into nomCHamp1¬put "Auteur" into nomCHamp2¬if GSubSelec is not empty then effaceCorne¬set lockMessages to true¬wsSet wdId,"path","text",""¬wsSet wdId,"Annuler","Disabled","True"¬get wsGet(wdID,"Entree","Text")¬put it into TitreRech¬get wsGet(wdID,"Contient","Hilite")¬put it into mode¬put the number of cds of this stack into x¬wsSet wdId,"Complet","Max",x¬lock screen¬go first cd of background "FICHES"¬put the short id of this cd into retour¬wsSet wdId,"Complet","Value","1"¬if mode is "true" then¬  put "Find chars" &"e & TitreRech & quote into Rech¬else¬  put "Find whole" && TitreRech into Rech¬end if¬put " in field" && quote & quelChamp & quote after Rech¬do rech¬if the result is not empty then¬  put "Recherche infructueuse" into laListe¬  wsSet wdId,"Consulter","Disabled","True"¬  wsSet wdId,"Stocker","Disabled","True"¬  wsSet wdId,"path","Text",laListe¬else¬  if the short name of this background is "FICHES" then¬    put short id of this cd into laBoucle¬    put  short id of this cd && field nomChamp1 && (word 1 to 4 of fld nomChamp2) & return after laListe¬    go next cd¬    put the number of this cd into i¬    wsSet wdID,"Complet","Value",i¬    put empty into currID¬    repeat until currID=laBoucle¬      do Rech¬      put short id of this cd into currID¬      if currId=laBoucle then¬        exit repeat¬        wsSet wdID,"Complet","Value",x¬      end if¬      if short name of this background is "FICHES" then¬        put the short id of this cd && field nomChamp1 && (word 1 to 4 of fld nomChamp2) & return after laListe¬      end if¬      put the number of this cd into i¬      wsSet wdID,"Complet","Value",i¬      go next  cd¬    end repeat¬  end if¬  wsSet wdID,"Complet","Value",x¬  wsSet wdID,"Annuler","Disabled","False"¬  wsSet wdId,"Consulter","Disabled","False"¬  wsSet wdId,"Stocker","Disabled","False"¬  put crunch(laListe) into laListe¬  put FullReplace(laListe,"("," ") into laListe¬  put FullReplace(laliste,")"," ") into laListe¬  put the number of lines of laListe && "Fiches correspondent à votre demande" into Nblines¬  wsSet wdId,"path","Text",Nblines¬end if¬go cd id retour¬unlock screen¬set lockMessages to false¬--end mouseUp
  23.  
  24. ItemType: PUSH
  25. Rect: 99,200,179,217
  26. TextFont: Geneva
  27. TextSize: 10
  28. Name: Annuler
  29. CancelItem: TRUE
  30. AutoClose: TRUE
  31. Balloon: Ferme la fenêtre de recherche
  32.  
  33. ItemType: TEXT
  34. Rect: 9,136,178,162
  35. TextFont: Geneva
  36. TextSize: 10
  37. Name: Path
  38. TextAlign: Center
  39.  
  40. ItemType: TEXT
  41. Rect: 5,40,177,57
  42. TextFont: Geneva
  43. TextSize: 10
  44. Name: Entree
  45. BlackColor: 4369,4369,4369
  46. WhiteColor: -1,-1,-13108
  47. LockText: FALSE
  48. Script: --on mouseUp wdID,wdName,objNo,objName,ObjValue¬wsSet wdId,"Rechercher","Disabled","false"¬--end mouseUp¬
  49.  
  50. ItemType: RAD
  51. Rect: 88,61,171,74
  52. TextFont: Geneva
  53. TextSize: 10
  54. Name: Mot complet
  55. Balloon: Les occurences correspondent strictement à la chaîne recherchée (commande Find Whole).
  56.  
  57. ItemType: RAD
  58. Rect: 10,61,74,74
  59. TextFont: Geneva
  60. TextSize: 10
  61. Name: Contient
  62. Hilite: TRUE
  63. Balloon: Les occurences contiennent la chaîne de caractères recherchée (commande Find).
  64.  
  65. ItemType: LBL
  66. Rect: 10,24,180,40
  67. TextSize: 12
  68. BlackColor: 0,0,-8739
  69. Text: Valeur(s) recherchée(s) ?
  70.  
  71. ItemType: CNTL
  72. Rect: 6,11,176,21
  73. BlackColor: 0,0,-8739
  74. Name: Complet
  75. Style: 320
  76. Min: 0
  77. Max: 467
  78. Value: 0
  79. Step: 1
  80. Leap: 10
  81.  
  82. ItemType: TEXT
  83. Rect: 10,-1,29,11
  84. TextFont: Geneva
  85. TextSize: 9
  86. Name: 0%
  87. BlackColor: 0,0,-8739
  88. WhiteColor: -8739,-8739,-8739
  89. Text: 0%
  90.  
  91. ItemType: TEXT
  92. Rect: 144,-1,175,11
  93. TextFont: Geneva
  94. TextSize: 9
  95. Name: 100%
  96. BlackColor: 0,0,-8739
  97. WhiteColor: -8739,-8739,-8739
  98. Text: 100%
  99.  
  100. ItemType: LBL
  101. Rect: 10,119,76,135
  102. BlackColor: 0,0,-8739
  103. Text: Résultats
  104.  
  105. ItemType: PUSH
  106. Rect: 8,200,88,217
  107. TextFont: Geneva
  108. TextSize: 10
  109. Name: Effacer
  110. Balloon: Efface la requête et ses résultats. Permet une nouvelle  recherche.
  111. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬wsSet wdID,"Entree","TEXT",""¬wsSet wdID,"path","TEXT",""¬wsSet wdID,"Complet","Value","0"¬wsSet wdID,"Consulter","Disabled","true"¬wsSet wdID,"Stocker","Disabled","True"¬wsSet wdID,"Annuler","Disabled","False"¬wsSet wdID,"Rechercher","Disabled","True"¬effaceCorne¬put false into GCorne¬put empty into GSubSelec¬--end mouseUp
  112.  
  113. ItemType: PUSH
  114. Rect: 98,176,178,193
  115. TextFont: Geneva
  116. TextSize: 10
  117. Disabled: TRUE
  118. Name: Stocker
  119. Balloon: Ce bouton conduit à la première carte où il est possible de stocker les recherches effectuées (dans la limite de 4 stockages).
  120. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬push cd¬go cd 1¬stockage¬--end mouseUp
  121.  
  122. ItemType: PUSH
  123. Rect: 7,175,87,192
  124. TextFont: Geneva
  125. TextSize: 10
  126. Disabled: TRUE
  127. Name: Consulter
  128. Balloon: Ce bouton permet d'afficher une nouvelle fenêtre permettant une consultation des fiches sélectionnées.
  129. Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬get windowScript("Consultation")¬--end mouseUp